function out_sig = f_Holm_Bon(n,bars,alpha,chance)
% n: # of trials to get each percentage value.
% bars: Percent Corrects for multiple evaluations in a row
% alpha, significance level, such as 0.05;
% chance: chance performance, = 0.5 for two classifiers, = 0.25 for 4 classifiers.

out_sig = 0;
Y_bars = sort(bars,'descend');
m = length(bars);
for k = 1:length(bars)
    alpha_new = alpha./(m+1-k);
    out_int = f_confid_I(n,Y_bars(k),alpha_new);
    if Y_bars(k)-out_int>chance
        out_sig = 1;
    end
end
return